home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Bus
/
A
/
almanac 1.5 .cpt
/
Almanac v 1.5
/
background_3340.txt
< prev
next >
Wrap
Text File
|
1989-01-02
|
2KB
|
99 lines
-- background: 3340 from stack: in.5
-- bmap block id: 7955
-- flags: 0000
-- background id: 0
-- name: Info
----- HyperTalk script -----
on openCard
set scroll of field 2 to 0
end openCard
-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=30 top=43 right=71 bottom=248
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name:
-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=30 top=82 right=310 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=455 top=39 right=69 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
pop card
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=261 top=42 right=69 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
if the short name of this card is "One"
then
else go prev card
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=343 top=42 right=69 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
if number of this card = number of cards
then
else go next card
end mouseUp